home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Bombardier_PC
/
DATACH.CST
/
00007_Script_7
< prev
next >
Wrap
Text File
|
1999-03-07
|
1KB
|
37 lines
on exitFrame
global defaultflag
-- global togglestate
set defaultflag = false
-- if the member of sprite 9 = "light1" then
-- set togglestate = 0
-- else
-- set togglestate = 1
-- end if
-- setupspecs
end
on enterFrame
global currentChartName, cheraseflag, togglestate, compdrawplace, flag_specs
set compdrawplace = "specs"
set currentChartName = "ALL"
initcurrentplane
if cheraseflag then
-- erase competitor specs
set the text of member "disPlane" = "No Competitor"
-- set xcastnum = ( the number of member "CHDBaircrafts" ) + 1
-- erasedatabasefields(xcastnum)
-- set xcastnum = ( the number of member "CHDBconfig" ) + 1
-- erasedatabasefields(xcastnum)
set xcastnum = ( the number of member "CHDBdaircrafts" ) + 1
erasedatabasefields(xcastnum)
set xcastnum = ( the number of member "CHDBdconfig" ) + 1
erasedatabasefields(xcastnum)
set cheraseflag = false
setupspecs -- read in specification values
end if
if flag_specs then
setupspecs -- read in specification values
set flag_specs = FALSE
end if
end